on MODIFICA_RIVERBERO
  setwindow topwindow()
  put empty into a
  repeat forever
put a+1 into a
    if exists (cd grc a) then -- verifica l'esistenza di un oggetto
      put the script of cd grc a into S_OG -- trasferisce lo script nella variabile S_OG
      if char 6 of line 3 of S_OG = "M" then -- verifica che sia di tipo MIDI
        put "--ER/30" into line 28 of S_OG -- setta il valore del riverbero a 30
        set the script of cd grc a to S_OG -- assegna lo script all'oggetto
      end if
    else
      exit repeat
    end if
  end repeat
end MODIFICA_RIVERBERO